20 A "--------------------" "-JEU DES ALLUMETTES-" "--------------------" "IL Y EN A 20." Lbl 1 "COMBIEN EN ENLEVEZ-VOUS "? B (B 1) And (B 2) And (B 3) Goto 1 A<B Goto 1 A-B A "IL EN RESTE":A A=0 Goto P Lbl 2 A-(Int (A 4))x4 B B=0 3 C B=1 1+Int (Ran#x3) C B=2 1 C B=3 2 C C>A Goto 2 A-C A "J'EN PRENDS":C "IL EN RESTE":A A=0 Goto G Goto 1 Lbl G "VOUS GAGNEZ !" Stop Lbl P "JE GAGNE !"
|